home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
comm2
/
ums116bt.lha
/
UMS
/
rexx
/
UMSInit.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-01-25
|
2KB
|
61 lines
/* ------------------------------------------------------------------------
:Program. UMSInit.rexx
:Contents. constant definitions and initialisations for ums.library
:Author. Martin Horneffer
:History. v1.0 [mh] 26-Sep-93
:History. v1.1 [hG] 22-Jan-94 added default parameter parsing,
:History. incl. of RexxDosSupport.library etc.
:Hsitory. v1.2 [hG] 11-Jul-94 clear RC after GetVar()
:History. v1.3 [hG] 18-Jul-94 uses rexxdossupport.library 2.2
:History. v2.0 [hG] 18-Jul-94 adapted to UMS V11
:Version. $VER: UMSInit 2.0 (25.1.95)
:Copyright. Freely Distributable
:Language. ARexx
------------------------------------------------------------------------ */
/*** Startup ***/
options results
signal on BREAK_C
signal on BREAK_D
signal on BREAK_E
signal on BREAK_F
signal on ERROR
signal on HALT
signal on IOERR
signal on SYNTAX
RC = 0
/*** Open ums.library ***/
/* result is ignored since AddLib() does not check whether the lib
* exists but only whether the name is already in the list
*/
call addlib('rexxdossupport.library', 0, -30, 2)
call addlib('ums.library', 0, -210, 11)
call UMSInitConsts()
/* get default values, parse arguments */
if symbol("server") ~= "VAR" then server = GetVar('UMSServer')
if symbol("name") ~= "VAR" then name = GetVar('username')
RC = 0 /* don't care about missing ENV-Variables */
parse arg arguments
if strip(arguments) = '?' then do
call writech(STDOUT, ArgsTemplate || ': ')
/*arguments = readln(STDIN)*/
pull arguments
end; else nop
if ~ ReadArgs(arguments,ArgsTemplate) then do
say Fault(RC,ProgramName)
exit 10
end; else nop
drop arguments
/* Login is not done here to give the the chance to overwrite
* the arguments/env-vars during test phase of skripts.
*/